home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-06 / segue.exe / NSPLQUE.PRG < prev    next >
Text File  |  1991-10-28  |  2KB  |  43 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: NSPLQUE.PRG       Copyright: HRF Associates, Inc.                                     
  4. *   Date Created: 10/28/11           Language: Clipper                                             
  5. *   Time Created: 23:23:57             Author: Bob Fogle                                 
  6. *
  7. *.............................................................................
  8. * Supplemental SEGUE function for selecting capture spool queue for currently selected printer.
  9. * Functionally equivilent to N_SPLQUE function in NETLIB library.
  10. *
  11. FUNCTION NSPLQUE_
  12. * Purpose: To select the capture spool queue for the currently selected printer.
  13. * Usage     : NSPLQUE_([<expC>])
  14. *        :
  15. * Where  : <expC> = Queue name.
  16. *        :
  17. PARAMETERS quenm
  18. LOCAL mquenm
  19. PRIVATE rtn :=0
  20.  
  21. do while .t.
  22.   * Check to make sure passed variable types are correct.
  23.   if valtype(quenm)<>'C' .AND. quenm<>nil
  24.     rtn = -101
  25.     exit
  26.   endi
  27.  
  28.   * Set up defaults
  29.   mquenm = if(valtype(quenm)=='C', uppe(alltrim(quenm)),nil)
  30.  
  31.   * Get/Set que name
  32.   if pcount()=0           // If no arguments, return current setting.
  33.     mobid = PRJBDFG(24)   // Get Default Print Job Flags (Print Queue ID Number)
  34.     rtn  = BDOBNM(mobid)  // Get Object Name.
  35.   else
  36.     mdflpt = PRLCDFG()           // Get Default LPT Device.  
  37.     mobid =  BDOBID( 3,"mquenm") // Get Object ID. (Object type for queue = 3)
  38.     rtn = PRQECAS(mdflpt,mobid)  // Set Capture Print Queue
  39.   endi
  40.   exit
  41. endd
  42. RETURN rtn
  43.